#delimit;
pause on;
clear all;
set mem 50m;
pause;
set more off;
pause;
cd "C:\data\Veto points\JOP_December08\Replication";
pause;
use "veto0208_replication_v2.dta", clear;
log using crossectional.smcl, replace;



/*Figure 1:  Scatterplots of Total Reform, Reversals***************************************/

/*Panel A*/
twoway lfitci  EBRD checks_av if year==2004 & country_ < 26 || scatter  EBRD checks_av if year==2004 & country_ < 26,  
mlabel(ctrynm) mcolor(navy) mlabcolor(black) mlabsize(vsmall) jitter(2)
xtitle("Average Veto Players (1992-2004)") ytitle(Total Economic Reform in 2004) legend(off);

graph save Figure1_A.gph, replace;
graph export Figure1_A.eps, as(eps) preview(off) replace;

/*Panel B*/
twoway lfitci  total_reversals checks_av if year==2004 & country_ <26 || scatter total_reversals checks_av if year==2004 & country_ <26,  
mlabel(ctrynm) mcolor(navy) mlabcolor(black) mlabsize(vsmall) jitter(2) 
xtitle("Average Veto Players (1992-2004)") ytitle("Total Reform Reversals (1992-2004)") legend(off);

graph save Figure1_B.gph, replace;
graph export Figure1_B.eps, as(eps) preview(off) replace;



/*************************************************************************************************************/


/*Descriptives on Total Reform*/
tabstat EBRD, statistics(mean sd) by (year);
tabstat early_EBRD, statistics(mean sd) by (year);


/******************************************************************************************************/

/*Table A1: OLS ANALYSIS of  ECONOMIC REFORM in 2004: Footnote 1*/
xi3: reg EBRD checks_av if year==2004 & country_ <26;
outreg2 using TableA1, replace  bdec(3) tdec(3) e(all);
pause;

xi3: reg EBRD checks_av postcom_av  if year==2004 & country_ <26;
outreg2 using TableA1,   bdec(3) tdec(3) e(all);
pause;

xi3: reg EBRD checks_av postcom_av   resource gnp89 distance2 gdp_en if year==2004 & country_ <26;
outreg2 using TableA1,  bdec(3) tdec(3) e(all) excel;
pause;



/******************************************************************************************************/
/*Figure A1: Bivariate relationship between EBRD Average Transition Indicator in 2004 and
average annual GDP growth rate*/

twoway (qfitci  gdp_growth04 EBRD if year==2004 & country_ < 26) 
(scatter  gdp_growth04 EBRD if year==2004 &  country_ < 26, mlabel( ctrynm) mlabsize(vsmall) mcolor(navy) mlabcolor(navy) msize(small)), 
xtitle(Total Economic Reform in 2004) ytitle(Average GDP Growth 1989-2004) legend(off);

save FigureA1, replace;
graph export FigureA1.eps, as(eps) preview(off) replace;


save "veto0208_replication_2.dta", replace;
log close;

